home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs58.d81 / fontvf.sda / FVP (.txt) next >
Commodore BASIC  |  2009-10-10  |  663b  |  31 lines
  1. 10 REM  *******************************
  2. 20 REM  ***                         ***
  3. 30 REM  ***     FONTVIEW PATCH      ***
  4. 40 REM  ***                         ***
  5. 50 REM  ***     BY JOE BUCKLEY      ***
  6. 60 REM  ***                         ***
  7. 70 REM  *******************************
  8. 80 :
  9. 100 DIM Z(256):DR=8
  10. 110 OPEN 15,DR,15:OPEN 2,DR,2,"#"
  11. 120 TR=18:SE=1:GOSUB 1000:REM 1581 USE 40,3
  12. 130 TR=Z(3):SE=Z(4):GOSUB 1000
  13. 140 FOR T=1 TO 2
  14. 150 TR=Z(0):SE=Z(1):GOSUB 1000
  15. 160 NEXT
  16. 170 Z(189)=255:Z(190)=22
  17. 180 GOSUB 2000
  18. 190 CLOSE 2:CLOSE 15:END
  19. 1000 PRINT#15,"U1"2;0;TR;SE
  20. 1010 FOR X=0 TO 255
  21. 1020 GET#2,A$:A$=A$+CHR$(0)
  22. 1030 Z(X)=ASC(A$)
  23. 1040 NEXT
  24. 1050 RETURN
  25. 2000 PRINT#15,"B-P:"2;0
  26. 2010 FOR X=0 TO 255
  27. 2020 PRINT#2,CHR$(Z(X));
  28. 2030 NEXT
  29. 2040 PRINT#15,"U2"2;0;TR;SE
  30. 2050 RETURN
  31.